SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROC [dbo].[SP_TXMVTO_CNTB_D01]
/*-------------------------------------------------------------------*/
/*----- Empresa           : OFISIS S.A.                          ----*/
/*----- Cliente           : OFISIS S.A.                          ----*/
/*----- Sistema           : Contabilidad                         ----*/
/*----- Modulo            : Empresa                              ----*/
/*----- Programa          : Mantenimiento de vouchers            ----*/
/*----- Nombre            : SP_TXMVTO_CNTB_D01                   ----*/
/*----- Script            : TXMVTO_CNTB                          ----*/
/*----- Desarrollado por  : Israel Estrada Polanco               ----*/
/*----- Fecha             : 23/06/1997                          ----*/
/*----- Base de Datos     : MS SQL Server                        ----*/
/*----- Version BD        : 6.5                                  ----*/
/*-------------------------------------------------------------------*/
/*-------------------------------------------------------------------*/
/*----- Drop proc SP_TXMVTO_CNTB_D01                             ----*/
/*----- Grant all on SP_TXMVTO_CNTB_D01 to PUBLIC                ----*/
/*----- SP_TXMVTO_CNTB_D01                                       ----*/
/*-------------------------------------------------------------------*/

As
Declare
@ISCO_EMPR	TD_VC_002,
@INNU_CNTB_EMPR	TD_IN_001_CONT,
@ISCO_UNID_CNTB	TD_VC_003,
@ISCO_OPRC_CNTB	TD_VC_003,
@INNU_ANNO	TD_IN_004_ANNO,
@INNU_MESE	TD_IN_002_MESE,
@ISNU_ASTO	TD_VC_010,
@INNU_SECU	TD_IN_002,
@ISST_TODO	TD_VC_002

Select Top 1 
@ISCO_EMPR = CO_EMPR,
@INNU_CNTB_EMPR	= NU_CNTB_EMPR,
@ISCO_UNID_CNTB	= CO_UNID_CNTB,
@ISCO_OPRC_CNTB	= CO_OPRC_CNTB,
@INNU_ANNO = NU_ANNO,
@INNU_MESE = NU_MESE,
@ISNU_ASTO = NU_ASTO,
@INNU_SECU = NU_SECU,
@ISST_TODO = ST_TODO
From #TWPARA_EMAA


If @ISST_TODO = 'NO'
 Update	TXMVTO_CNTB
 set	SI_MVTO_CNTB = 'ELI' --'E'
 Where	CO_EMPR = @ISCO_EMPR
 and	NU_CNTB_EMPR = @INNU_CNTB_EMPR
 and	CO_UNID_CNTB = @ISCO_UNID_CNTB
 and	CO_OPRC_CNTB = @ISCO_OPRC_CNTB
 and	NU_ANNO = @INNU_ANNO
 and	NU_MESE = @INNU_MESE
 and	NU_ASTO = @ISNU_ASTO
 and	NU_SECU = @INNU_SECU
Else If @ISST_TODO = 'SI'
 Update	TXMVTO_CNTB
 set	SI_MVTO_CNTB = 'ANU' --'E'
 Where	CO_EMPR = @ISCO_EMPR
 and	NU_CNTB_EMPR = @INNU_CNTB_EMPR
 and	CO_UNID_CNTB = @ISCO_UNID_CNTB
 and	CO_OPRC_CNTB = @ISCO_OPRC_CNTB
 and	NU_ANNO = @INNU_ANNO
 and	NU_MESE = @INNU_MESE
 and	NU_ASTO = @ISNU_ASTO
 Return
/*------------------------------------------ Fin ---------------------------------*/






GO
